home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pharos Woordeboeke Dictionaries Afrikaans English
/
Pharos Woordeboeke Dictionaries - Afrikaans English (Windows 3.1x, Windows 9x).iso
/
LOGOS20
/
INSVERSE.SMM
< prev
next >
Wrap
INI File
|
2000-03-09
|
14KB
|
947 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
PCL / HP LaserJet
[port]
LPT1:
[lang]
1
[desc]
Insert a verse or passage from Logos Bible Software into the current document.
878148049
11
686361887
215
3
213
1465
10
10
0
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[tag]
Body Text
2
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Body Single
3
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Bullet
4
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*0>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Bullet
0
0
[tag]
Bullet 1
5
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
288
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*5>
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Bullet 1
0
0
[tag]
Number List
6
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
360
360
360
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>.
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Number List
0
0
[tag]
Subhead
7
[fnt]
TimesNewRomanPS
240
0
49155
[algn]
1
1
0
0
0
[spc]
33
273
1
72
72
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
2
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Subhead
0
0
[tag]
Title
8
[fnt]
Arial MT
360
0
16385
[algn]
4
1
0
0
0
[spc]
33
446
1
144
72
1
100
[brk]
16
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Title
0
0
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
0
1
0
1
0
2
1
1440
10800
12
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
[hrght]
[lyfrm]
1
11200
0
0
12240
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
12240
1
1440
72
1
792
1440
0
1
0
1
1
0
1
1440
10800
1
3
9360
[txt]
>
[frght]
[lyfrm]
1
13248
0
14400
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
792
1
14472
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[pg]
3
41 0 29 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
86 0 86 0 0 1 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
91 0 29 1025 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>FUNCTION InsertVese()<:f>
<:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> ' Variable Declarations<:f>
<+@><:S+-1><:f240,2TimesNewRomanPS,0,0,0> DIM Version$(150)
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> DEFSTR CurVersion$, Verse$<:f>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> DEF Chan1, <:f><:f240,2TimesNewRomanPS,0,0,0>Chan2, i, cVersions,
<:f><:f240,2TimesNewRomanPS,0,0,0>VersionSel, Box
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>
<+@><:S+-1><:#576,9360><:f240,2TimesNewRomanPS,0,0,0> Chan1 = DDEInitiate("Logos", "Data")<:f><:f240,2TimesNewRomanPS,0,0,0> ' Initiate informational conversation with Logos.<:f>
<+@><:S+-1><:#288,9360>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> if Chan1 = 0
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> ' Logos isn't running. Run it.
<+@><:S+-1><:#576,9360><:f240,2TimesNewRomanPS,0,0,0> Chan1 = Exec("Logos", "", 6) ' NOTE: This won't work if Logos isn't on your path.
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> if Chan1 << 32
<+@><:S+-1><:#576,9360><:f240,2TimesNewRomanPS,0,0,0> <:f><:f240,2TimesNewRomanPS,0,0,0>Message("Cannot initiate DDE link. Please run Logos before running macro.")<:f>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> exit function
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> endif<:f>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> Chan1 = DDEInitiate("Logos", "Data")
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> if Chan1 = 0
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> <:f><:f240,2TimesNewRomanPS,0,0,0>Message("Cannot initiate DDE link with Logos.")<:f>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> exit function
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> endif<:f>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> endif
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> Chan2 = DDEInitiate("Logos", "Passage") ' Initiate passage conversation with Logos.<:f>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>
<+@><:S+-1><:#576,9360><:f240,2TimesNewRomanPS,0,0,0> cVersions = <:f><:f240,2TimesNewRomanPS,0,0,0>DDEReceive$(Chan1, "NumVersions") ' Get number of versions<:f> in Logos.
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> ' Get all available versions.
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> for i = 1 To cVersions
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> Version$(i) = DDEReceive$(Chan1, <:f><:f240,2TimesNewRomanPS,0,0,0>strcat$("VerName", (i - 1))<:f><:f240,2TimesNewRomanPS,0,0,0>)
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> next
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> CurVersion$ = DDEReceive$(Chan1, "CurVerName") ' Get current Bible version.<:f>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> ' Figure out which item in the list box is the current Bible version.
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> VersionSel = 0
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> for i = 1 To cVersions
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> If CurVersion$ = Version$(i)
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> VersionSel = i - 1
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> endif
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> next
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> FillEdit(8500<:f><:f240,2TimesNewRomanPS,0,0,0>,
<:f><:f240,2TimesNewRomanPS,0,0,0>DDEReceive$(Chan1, "Passage")<:f><:f240,2TimesNewRomanPS,0,0,0>) ' Fill in the current passage.
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> ' Fill in listbox with Bible versions.
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> for i = 1 to cVersions
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> FillList(<:f><:f240,2TimesNewRomanPS,0,0,0>Version$(i))
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> next
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> Box = DialogBox(".", "InsVrs")
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> if Box = -1
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> ' Couldn't open dialog box.
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> Message("Error opening Insert Verses dialog.")
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> DDETerminate(Chan1)
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> DDETerminate(Chan2)<:f>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> exit function
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> elseif Box = 0
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> ' User canceled.
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> DDETerminate(Chan1)
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> DDETerminate(Chan2)<:f>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> exit function
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> endif
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> ' Which version did the user select?
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> CurVersion$ = GetDialogField$(9100)
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> for i = 1 to cVersions
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> if Version$(i) = CurVersion$
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> VersionSel = i - 1
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> endif
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> next
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> ' Copy the desired verses into the clipboard.
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> Verse$ = strcat$(GetDialogField$(8500<:f><:f240,2TimesNewRomanPS,0,0,0>), "|", VersionSel)<:f>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> DDEExecute(Chan2, Verse$)
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>
<+@><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> Paste() ' Paste them into the document.
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> ' We're done!
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> DDETerminate(Chan1)
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0> DDETerminate(Chan2)<:f>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>End function
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>DIALOG InsVrs
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>-2134900736 6 31 27 185 98 "" "" "Insert Verses"
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>140 6 40 14 1 1342373889 "button" "OK" 0
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>140 24 40 14 2 1342373888 "button" "Cancel" 0
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>7 5 60 10 1000 1342177280 "static" "Bible &Reference:" 0
<+@><:S+-1><:#288,9360><:f240,2TimesNewRomanPS,0,0,0>6 14 124 12 8500 1350631552 "edit" "" 0
<+@><:S+-1><:f240,2TimesNewRomanPS,0,0,0>7 32 58 10 1001 1342177280 "static" "Bible &Version:" 0
<+@><:S+-1><:f240,2TimesNewRomanPS,0,0,0>7 41 123 49 9100 1352728579 "listbox" "" 0
<+@><:S+-1><:f240,2TimesNewRomanPS,0,0,0>END DIALOG<:f>
<+@><:S+-1><:f240,2TimesNewRomanPS,0,0,0>
>
[Embedded]
00011925
>
[macsum] 2
InsertVese 0 0 11 0
InsVrs 1430 0 -1 81
[macse]
14 InsertVese
5 150
21 1 [X]
0 8 "Logos" "Data"
13
8 5
6 5
5 0
18 0
11 00000346
0 22 "Logos" "" 6
13
8 5
6 5
5 32
18 5
11 00000232
0 3 "Cannot initiate DDE link. Please run Logos before running macro."
6 0
15
9
0 8 "Logos" "Data"
13
8 5
6 5
5 0
18 0
11 00000346
0 3 "Cannot initiate DDE link with Logos."
6 0
15
9
0 8 "Logos" "Passage"
13
8 6
0 10 "{5}" "NumVersions"
13
8 8
5 1
8 7
6 8
6 7
18 2
12 00000498
10 00000581
5 1
6 7
3 0
8 7
10 00000423
6 7
6 7
5 1
3 1
0 16 "VerName" [X]
13
0 10 "{5}" [X]
13
23 1
10 00000465
0 10 "{5}" "CurVerName"
13
8 2
5 0
8 9
5 1
8 7
6 8
6 7
18 2
12 00000710
10 00000778
5 1
6 7
3 0
8 7
10 00000635
6 2
6 7
22 1
18 0
11 00000765
6 7
5 1
3 1
8 9
10 00000677
0 10 "{5}" "Passage"
13
0 31 8500 [X]
5 1
8 7
6 8
6 7
18 2
12 00000904
10 00000938
5 1
6 7
3 0
8 7
10 00000829
6 7
22 1
0 25 [X]
10 00000871
0 26 "." "InsVrs"
13
8 10
6 10
5 -1
18 0
11 00001088
0 3 "Error opening Insert Verses dialog."
0 9 "{5}"
0 9 "{6}"
6 0
15
9
10 00001152
6 10
5 0
18 0
11 00001152
0 9 "{5}"
0 9 "{6}"
6 0
15
9
0 27 9100
13
8 2
5 1
8 7
6 8
6 7
18 2
12 00001257
10 00001325
5 1
6 7
3 0
8 7
10 00001182
6 7
22 1
6 2
18 0
11 00001312
6 7
5 1
3 1
8 9
10 00001224
0 27 8500
13
0 16 [X] "|" "{9}"
13
8 3
0 11 "{6}" "{3}"
2 155 1
0 9 "{5}"
0 9 "{6}"
6 0
15
9
DIALOG InsVrs
-2134900736 6 31 27 185 98 "" "" "Insert Verses"
140 6 40 14 1 1342373889 "button" "OK" 0
140 24 40 14 2 1342373888 "button" "Cancel" 0
7 5 60 10 1000 1342177280 "static" "Bible &Reference:" 0
6 14 124 12 8500 1350631552 "edit" "" 0
7 32 58 10 1001 1342177280 "static" "Bible &Version:" 0
7 41 123 49 9100 1352728579 "listbox" "" 0
00011950